home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)tq.d64 / super.aid.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  5KB  |  111 lines
  1. 10 IFA=0THENPOKE53280,0:POKE53281,0:PRINTCHR$(14)"[147][149][215][197][204][195][207][205][197][160][212][207]:"
  2. 20 IFA=0THENPRINT"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  3. 30 IFA=0THENPRINT"[221][146]  [211][213][208][197][210] [193][201][196]  [149][221]"
  4. 40 IFA=0THENPRINT"[221][146]A PROGRAMMING[149][221]"
  5. 50 IFA=0THENPRINT"[221][146]   UTILITY   [149][221]"
  6. 60 IFA=0THENPRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  7. 70 IFA=0THENPRINT"[194]Y [211]TEVE [199]AST"
  8. 80 IFA=0THENPRINT"[208][210][197][211][211] [193][206][217] [203][197][217] [212][207] [195][207][206][212][201][206][213][197]"
  9. 90 IFA=0THENGETW$:IFW$=""THEN90
  10. 100 IFA=0THENPRINT"[147] [196]O YOU WANT A MACHINE LANGUAGE MONITOR"
  11. 110 IFA=0THENPRINT"        TO BE RESIDENT IN MEMORY?"
  12. 120 IFA=0THENPRINT"          Y[146] = YES    N[146] = NO"
  13. 130 IFA=0THENGETM$:IFM$<>"Y"ANDM$<>"N"THEN130
  14. 140 IFA=0ANDM$="Y"THENPRINTCHR$(142)"[147][149][213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201]"
  15. 150 IFA=0ANDM$="Y"THENPRINT"[221][146]XTRAMON 64 LOADING[149][221]"
  16. 160 IFA=0ANDM$="Y"THENPRINT"[202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203]":A=10
  17. 170 IFA=0ORA=5THENPRINTCHR$(142)"[147][149][213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201]"
  18. 180 IFA=0ORA=5THENPRINT"[221][146]WEDGE PLUS LOADING[149][221]"
  19. 190 IFA=0ORA=5THENPRINT"[202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203]"
  20. 200 IFA=1THENPRINT"[147][213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201]"
  21. 210 IFA=1THENPRINT"[221][146]TINY AID PLUS LOADING[149][221]"
  22. 220 IFA=1THENPRINT"[202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][192][195][195][195][195][195][203][144]"
  23. 230 IFA=1THENPOKE51,90:POKE52,155:POKE55,90:POKE56,155:POKE790,102:POKE791,254
  24. 240 IFA=1THENPOKE52173,191:POKE52205,203:SK=1:POKE51072,1
  25. 245 IFA=0ORA=10THENPOKE808,225
  26. 250 IFA=10THENPOKE51,204:POKE52,116:POKE55,204:POKE56,116:POKE3150,143:POKE3207,143
  27. 260 IFA=10THENA=5:POKE51072,0:LOAD"XMON.74CC-801B.D",8,1
  28. 270 IFA=0ANDM$="N"THENA=5
  29. 280 IFA=5THENA=1:LOAD"N&W.C700-CFFF.D",8,1
  30. 290 IFA=1THENA=2:POKE3150,139:POKE3207,139:LOAD"TAP.9B5B-9FFF.D",8,1
  31. 300 POKE51546,0:PRINT"[144]":SYS51200:POKE51546,9:PRINT"[149]"
  32. 310 PRINT"[147]"CHR$(142)TAB(11)"C64 TINY AID PLUS "
  33. 320 PRINT"ADAPTED FOR C64 BY:DAVID A. HOOK
  34. 330 [153]"C-64 WEDGE COMPATABILITY BY STEVE GAST
  35. 340 PRINT"FROM 'TINY AID' BY:JIM BUTTERFIELD
  36. 350 [153]"AND 'BASIC AID' BY:DAVID SEILER
  37. 360 PRINTTAB(12)"SAMPLE COMMANDS:
  38. 370 [153]"CHANGE/?/PRINT#4,/    ";
  39. 380 [153]"FIND .GOSUB.,200-
  40. 390 PRINT"DELETE 130-625        ";
  41. 400 PRINT"NUMBER 100,5
  42. 410 [153]"APPEND "[199](34)"NAME"[199](34)",(DEV.#) ";
  43. 420 [153]"KILL
  44. 430 PRINT"SYS 51200 (REACTIVATES UTILITIES)"
  45. 440 PRINTTAB(15)"SUPER.DOS
  46. 450 [153]"FROM 'DOS PLUS' BY MICHAEL J. KERYAN
  47. 460 PRINT"MODIFIED AND ADAPTED BY STEVE GAST
  48. 470 [153][163]12)"CONTROL COMMANDS
  49. 480 PRINT"RESTORE/A=AUTO #    RESTORE/B=BKGD COLOR";
  50. 490 PRINT"RESTORE/C=CH.COLOR  RESTORE/E=EDGE COLOR";
  51. 500 PRINT"RESTORE/P=PRINT ON  RESTORE/O=PRINT OFF ";
  52. 510 PRINT"RESTORE/N=NUM.CONV. RESTORE/D=SCRN.DUMP ";
  53. 520 PRINT"RESTORE/H=HELP      RESTORE/U=HELP      ";
  54. 530 PRINT"RESTORE/M=MONITOR   RESTORE/R=REPEAT    ";
  55. 540 PRINT"RESTORE/K=KILL (COMPLETE SYSTEM RESET!!)";
  56. 550 PRINT"RESTORE/S=START (WEDGE & TINY AID+)"
  57. 560 PRINT"    PRESS THE RETURN KEY TO CONTINUE"
  58. 570 IFSK=1THENFORX=1784TO1800:POKEX,32:NEXT
  59. 580 POKE53128,4:POKE53131,232:SYS53164
  60. 590 POKE60392,PEEK(53280):POKE60393,PEEK(53281)
  61. 600 POKE53128,216:POKE53131,236:SYS53164
  62. 610 GETW$:IFW$=""THEN610
  63. 620 PRINT"[147] C-64 WEDGE "
  64. 630 PRINT"BY BOB FAIRBAIRN
  65. 640 [153]"TINY AID PLUS COMPATABILITY BY S. GAST"
  66. 650 [153]" SAMPLE COMMANDS "
  67. 660 [153]"@                    CURRENT DISK STATUS";
  68. 670 [153]"@C0:NEWFILE=OLDFILE  COPY A FILE "
  69. 680 [153]"@I                   INITALIZE DRIVE    ";
  70. 690 [153]"@N0:DISKNAME,ID      FORMAT A DISK      ";
  71. 700 [153]"@Q                   KILL THE WEDGE     ";
  72. 710 [153]"@R0:NEWFILE=OLDFILE  RENAME A FILE      ";
  73. 720 [153]"@S0:FILENAME         SCRATCH A FILE     ";
  74. 730 [153]"@UI                  RESET THE DOS      ";
  75. 740 [153]"@$                   READ DIRECTORY     ";
  76. 750 [153]"@#N NOTE:N=1 TO15    DOS COMMANDS TO N  ";
  77. 760 [153]"/FILENAME            LOAD A FILE (BASIC)";
  78. 770 [153]"%FILENAME            LOAD A FILE (M.L.) ";
  79. 780 [153]"^FILENAME            LOAD & RUN A FILE  ";
  80. 790 [153]"_FILENAME            SAVE A FILE        ";
  81. 800 [153]"PRESS THE RETURN KEY TO CONTINUE"
  82. 810 [151]53128,4:[151]53131,248:[158]53164
  83. 820 [151]64488,[194](53280):[151]64489,[194](53281)
  84. 830 [151]53128,216:[151]53131,252:[158]53164
  85. 835 [151]808,237:[151]51228,1
  86. 840 [161]W$:[139]W$[178]""[167]840
  87. 850 [153][199](14)"LOAD STR$(null) (null)(null)(null) (null)RIGHT$(null)LEFT$ (null)(null): "
  88. 860 [153]"1. (null)VALVAL STR$VAL(null)ATNRIGHT$(null)VALSTR$ (null)VALSTR$CHR$VAL RIGHT$(null)(null)(null)(null)(null)LEN(null)RIGHT$(null)(null)(null)"
  89. 870 [153]"2. (null)VALVAL STR$VAL(null)ATNRIGHT$(null)VALSTR$ (null)RIGHT$(null)(null) ATNRIGHT$STR$ (null)(null)(null)(null)"
  90. 880 [153]"   RIGHT$(null)(null)(null)(null)(null)LEN(null)RIGHT$(null)(null)(null)"
  91. 890 [153]"3. (null)VALVAL (null)(null)(null)VAL(null) ATNRIGHT$STR$ CHR$VAL(null)VAL(null)ATN(null) LEN(null)(null)(null)VAL(null)(null)(null)
  92. 900 PRINT"4. [211][197][197] [211][213][208][197][210] [196][207][211] [201][206][211][212][210][213][195][212][201][207][206][211]"
  93. 910 PRINT"5. [211][197][197] [216][212][210][193]-[205][207][206] [201][206][211][212][210][213][195][212][201][207][206][211]"
  94. 920 PRINT"6. [197][216][201][212] [212][200][197] [208][210][207][199][210][193][205]"
  95. 930 PRINT"[197]NTER YOUR NUMBER OF CHOICE"
  96. 940 GETW$:IFW$=""THEN940
  97. 950 IFW$<>"1"ANDW$<>"2"ANDW$<>"3"ANDW$<>"4"ANDW$<>"5"ANDW$<>"6"THEN940
  98. 960 W=VAL(W$):IFW=6THENPRINT"[147]*******"(PEEK(55)+256*PEEK(56))-2049"BASIC BYTES FREE ******"
  99. 970 IFW=6THENPRINTCHR$(142):NEW:END
  100. 980 IFW=1THENNP$="WEDGE.INST.D"
  101. 990 IFW=2THENNP$="TAP.INST.D"
  102. 1000 IFW=3THENNP$="S.A.COMMENTS.D"
  103. 1010 IFW=4THENNP$="SUPER.DOS.INST.D"
  104. 1020 IFW=5THENNP$="XMON.INST.D"
  105. 1030 PRINT"[147][144]LOAD"CHR$(34)NP$CHR$(34)",8"
  106. 1040 POKE198,4:POKE631,13:POKE632,82:POKE633,213:POKE634,13
  107. 1050 PRINTCHR$(142)"[149][213][195][195][195][195][195][195][195][195][195][195][195][201]"
  108. 1060 PRINTCHR$(142)"[149][221][146]PLEASE WAIT[149][221]"
  109. 1070 PRINTCHR$(142)"[149][202][195][195][195][195][195][195][195][195][195][195][195][203][146][144]":END
  110. 51228 .,10-
  111.